home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2000 August / augusty_2000.iso / Site Building / 2Bitmap / data1.cab / Shared_Dll / IAPSHOP7.PS < prev    next >
Encoding:
Text File  |  2000-05-22  |  472 b   |  21 lines
  1. level2 {
  2. /DeviceGray
  3. setcolorspace} if
  4. /readdata {currentfile exch readhexstring pop} def
  5. /image2 level2 {/image load def} {{begin
  6. Width Height BitsPerComponent ImageMatrix
  7. /DataSource load image end} def} ifelse
  8. /beginimage {
  9. image2
  10. } def
  11. 12 dict begin
  12. /ImageType 1 def
  13. /Width cols def
  14. /Height rows def
  15. /ImageMatrix [cols 0 0 rows neg 0 rows] def
  16. /BitsPerComponent 8 def
  17. /Decode [0 1] def
  18. /DataSource {picstr1 readdata} def
  19. currentdict end
  20. beginimage
  21.